<%if hasbatch%> <%endif%> <%if hasexpiry%> <%endif%> <%if haskglibs%> <%else%> <%if haszctn%> <%endif%> <%if haszunit%> <%endif%> <%if hasbonus%> <%endif%> <%endif haskglibs%> <%if hastax=.t.%> <%endif%> <%if haspdisc1%> <%endif%> <%if haspdisc2%> <%endif%> <%if hasdiscount%> <%endif%> <%SCAN%> <% =seek(itemid,[itemmast],[itemid]) taxprate=itemmast.taxprate taxrate=itemmast.taxrate if haskglibs kgs=itemmast.kgs libs=itemmast.libs else kgs=0 libs=0 endif ITEMTX=round(iif(empty(taxprate),taxrate*qty,(qty*rate)-(qty*rate)/(1+taxprate/100)),2) if empty(taxprate) thetaxprate=round((taxrate/(rate-taxrate))*100,2) else thetaxprate=taxprate endif SALEINCLUDINGTAX=qty*rate saleexcludingtax=saleincludingtax-itemtx totaltax=totaltax+itemtx thechars=[] textra=allt(nvl(itemmast.extra,'')) for i=1 to len(textra) thechars=thechars+[ | ]+subst(textra,i,1)+[ : ]+transform(asc(subst(textra,i,1))) endfor testunits=nvl(zunit,0) kgqty=QTY*iif(empty(KGS),1,kgs) libsqty=QTY*iif(empty(libs),2.20462,libs) kgqty=icase(kgqty=round(kgqty,0),round(kgqty,0),kgqty=round(kgqty,2),round(kgqty,2),kgqty=round(kgqty,3),round(kgqty,3),round(kgqty,4)) libsqty=icase(libsqty=round(libsqty,0),round(libsqty,0),libsqty=round(libsqty,2),round(libsqty,2),libsqty=round(libsqty,3),round(libsqty,3),round(libsqty,4)) rateperlib=saleexcludingtax/libsqty if haskglibs if empty(kgs) thectnqty=iif(empty(testunits),qty,testunits) else thectnqty=qty endif rateperkg=saleexcludingtax/kgqty else thectnqty=qty rateperkg=saleexcludingtax/qty rateperkg=saleincludingtax/qty endif rateperkg=icase(rateperkg=round(rateperkg,0),round(rateperkg,0),round(rateperkg,2)) rateperlib=icase(rateperlib=round(rateperlib,0),round(rateperlib,0),round(rateperlib,2)) %> <%if hasbatch%> <%endif%> <%if hasexpiry%> <%endif%> <%if haskglibs%> <%else%> <%if haszctn%> <%endif%> <%if haszunit%> <%endif%> <%if hasbonus%> <%endif%> <%endif haskglibs%> <%if hastax=.t.%> <%endif%> <% roundeddisc=icase(discount=round(discount,0),round(discount,0),round(discount,2)) %> <%if haspdisc1%> <%endif%> <%if haspdisc2%> <%endif%> <%if hasdiscount%> <%endif%> <%ENDSCAN%> <% cspan=1 %> <%if not empty(openingbalance)%>

CREDIT PURCHASE BILL <%if not empty(fbrnumberreceived)%> <%endif%> <%if type([searchresults.fbrinv])=[C] and not empty(searchresults.fbrinv)%> <%=[POSID# ]+ALLT(xcompany.fbrposid)%> <%=[FBR# ]+ALLT(fbrinv)%> <%endif%> <%if not empty(memo)%> <%=allt(memo)%> <%endif%> <%=[PUR# ]+ALLT(TRANSID)+[ DATE: ]+dtoc(date)+iif(empty(bill),[],[ BILL: ]+allt(bill))%>

#

DETAILS

Batch

expiry

KGs

LIBs

CTNs

RATE/LIB

RATE/KG

UNIT

PCS

QTY

BONUS

RATE

TAX

VAT

TOTAL

Disc ON Sale

Disc NET

DISC

NET AMOUNT

<%=RECNO()%>

<%=icase(isurdu=2,allt(DESC)+iif(empty(textra),[],[ ]+allt(textra)),isurdu=1,iif(empty(textra),allt(desc),allt(textra)),allt(desc))%>

<%=iif(empty(batch),' ',transform(batch))%>

<%=iif(empty(expiry),' ',transform(expiry))%>

<%=iif(empty(KGQTY),' ',KGQTY)%>

<%=iif(empty(libsQTY),' ',libsQTY)%>

<%=iif(empty(thectnqty),' ',thectnqty)%>

<%=iif(empty(rateperlib),' ',rateperlib)%>

<%=iif(empty(rateperkg),' ',rateperkg)%>

<%=zctn%>

<%=iif(empty(thectnqty),' ',thectnqty)%>

<%=thectnqty%>

<%=iif(empty(bonus),' ',transform(bonus))%>

<%=rateperkg%>

<%=iif(empty(thetaxprate),' ',transform(thetaxprate)+[%])%>

<%=iif(empty(itemtx),' ',transform(itemtx,'999999999.99'))%>

<%=ROUND(qty*rate,0)%>

<%=iif(empty(pdisc1),' ',transform(pdisc1)+'%')%>

<%=iif(empty(pdisc2),' ',transform(pdisc2)+'%')%>

<%=iif(empty(roundeddisc),' ',transform(roundeddisc))%>

<%=ROUND(qty*rate-roundeddisc,0)%>

<%if hastax=.t.%> <%if totaltax<>0 %> <%endif%> <%endif%> <%if fbrservice<>0 %> <%endif%> <%if SERVICECHARGES<>0 %> <%endif%> <%if round(PRODUCTDISCOUNT+MEMBERDISCOUNT,2)<>0 %> <%endif%> TOTAL TAX <%=transform(TOTALTAX,'99999999999999.99')%> POS SERVICE CHARGES <%=transform(fbrservice,'99999999999999.99')%> SERVICE CHARGES <%=transform(SERVICECHARGES,'99999999999999.99')%> TOTAL AMOUNT <%=transform(TOTALAMOUNT+fbrservice+SERVICECHARGES,'99999999999999.99')%> DISCOUNT <%=transform(PRODUCTDISCOUNT+MEMBERDISCOUNT,'99999999999999.99')%> NET AMOUNT <%=transform(TOTALAMOUNT+fbrservice+SERVICECHARGES-PRODUCTDISCOUNT-MEMBERDISCOUNT,'99999999999999.99')%>

<%if not empty(nvl(closing.debits,0))%> <%endif%> <%if not empty(nvl(closing.Credits,0))%> <%endif%>

Opening	<>
Add Debits	<>
Less Credits	<>
Closing Balance	<>

<%endif%>